home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / pc / starware.exe / starware.DXR / 00016_PLAYBTN.PIC.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  482 b   |  18 lines
  1. on mouseDown
  2.   puppetSound("mouse down")
  3.   set variable to the clickOn
  4.   set oldLocV to the locV of sprite variable
  5.   set newLocV to oldLocV + 2
  6.   set the locV of sprite variable to newLocV
  7.   set oldLocH to the locH of sprite variable
  8.   set newLocH to oldLocH + 2
  9.   set the locH of sprite variable to newLocH
  10.   repeat while the stillDown
  11.     updateStage()
  12.   end repeat
  13.   puppetSound(0)
  14.   set the movieRate of sprite 3 to 0
  15.   set the movieRate of sprite 3 to 1.0
  16.   updateStage()
  17. end
  18.